home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 5 / developer source - volume 5.iso / delph / may95 / horn1f11.gif < prev    next >
Graphics Interchange Format  |  1996-11-16  |  9.4 KB  |  430x563  |  4-bit (6 colors)
   ocr: MADELPHIUNIT.PAS unit Unitl; interface uses SysUtils, Winlypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs; type TFormi = Class (TForm) Button1: IButton; procedure buttoniclick(Sender: TObject); private 1 - Private declarations ) public - PubliC declarations I end; var Forml: - Trorml; implementation ($R *.DFM) procedure TForml.Buttoniclick(Sender: TObject); begin Forml.Color := CiMaroon; end; end. 18: 73 Modified Insert Unitl